home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / csource / makemfx / testwdw.mta < prev   
Encoding:
Text File  |  1994-12-22  |  1.7 KB  |  33 lines
  1. Malloc(300); @start( ("test") ("bw") );
  2. @testmfx();            % Read MFX Group Definitions
  3.  % XbW Window definition for MFX Group tst
  4. wdw( WD01 1 1 60 40 StandardWDW );     % Get a Window
  5. @window/gimmicks( ("WD01") (" Program 'test' Test-Window 'WD01' (P) by XbW") );  % Get some buttons
  6. $MFX:=tst;   % Set MFX Group Name
  7. $WDW:=WD01;   % Set Window Name
  8. o( $WDW,("01") S . 1 3 9 1 Secure );   % This Object Exits XBW
  9. bg( $WDW,("01") . ("Exit XbW") );
  10.   cn( raK ("@stop();") );               % Macro to Exit XbW
  11.   eg();
  12. o( $WDW,("02") S T 11 3 30 1 Secure );   % This Object starts the User Program
  13. bg( $WDW,("02") . (" Start Program test") );
  14.   tk( ("") ("test") );             % Program name
  15.   cn( wbX ("tst") );                % Write MFX Group Before Start
  16.   cn( raX ("tst") );                % Read MFX Group after End
  17.   eg();
  18. o( $WDW,("05t") S . 1 5 8 1 Remark);bg( $WDW,("05t") . ("einsa") ); eg(); % Description
  19. o( $WDW,("05") I I 9 5 8 1 Standard);bg( $WDW,("05") . (ptr)MFX:$MFX.einsa ); eg(); % Integer Object
  20. o( $WDW,("06t") S . 1 6 8 1 Remark);bg( $WDW,("06t") . ("zweia") ); eg(); % Description
  21. o( $WDW,("06") S . 9 6 15 1 Standard);  % Double Float Object
  22. bg( $WDW,("06") . (ptr)MFX:$MFX.zweia );  % Object Head
  23.   ff( ("%14.7f") ("") 1 );
  24.   eg();   % Object Body with Display Format
  25. o( $WDW,("07t") S . 1 7 8 1 Remark);bg( $WDW,("07t") . ("dreia") ); eg(); % Description
  26. o( $WDW,("07") I I 9 7 8 1 Standard);bg( $WDW,("07") . (ptr)MFX:$MFX.dreia ); eg(); % Integer Object
  27. o( $WDW,("08t") S . 1 8 8 1 Remark);bg( $WDW,("08t") . ("viera") ); eg(); % Description
  28. o( $WDW,("08") S S 9 8 40 1 Standard);bg( $WDW,("08") . (ptr)MFX:$MFX.viera ); eg(); % String Object
  29. MFXGroup( Read tst );
  30. SelectWdw( ("W001") );
  31. End();
  32.  
  33.